object frmResumoCalculos: TfrmResumoCalculos Left = 191 Top = 106 BorderStyle = bsNone Caption = 'frmResumoCalculos' ClientHeight = 450 ClientWidth = 710 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = True Position = poScreenCenter OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Shape1: TShape Left = 0 Top = 0 Width = 710 Height = 450 Align = alClient end object Label2: TLabel Left = 8 Top = 8 Width = 231 Height = 29 Caption = 'Resumo das Quotas' Font.Charset = ANSI_CHARSET Font.Color = clGray Font.Height = -24 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label3: TLabel Left = 301 Top = 370 Width = 40 Height = 13 Caption = 'Totais:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label4: TLabel Left = 345 Top = 370 Width = 70 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Label4' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label5: TLabel Left = 425 Top = 370 Width = 80 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Label5' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label6: TLabel Left = 510 Top = 370 Width = 85 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Label6' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label7: TLabel Left = 610 Top = 370 Width = 85 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Label7' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label11: TLabel Left = 10 Top = 390 Width = 102 Height = 13 Caption = '�rea Condom�nio:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object DBText1: TDBText Left = 155 Top = 370 Width = 90 Height = 13 DataField = 'Permilagem' DataSource = Dados.dsCondominio Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object DBText2: TDBText Left = 120 Top = 390 Width = 42 Height = 13 AutoSize = True DataField = '�rea' DataSource = Dados.dsCondominio Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label10: TLabel Left = 10 Top = 370 Width = 140 Height = 13 Caption = 'Permilagem Condom�nio:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object Label12: TLabel Left = 10 Top = 410 Width = 66 Height = 13 Caption = 'Or�amento:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True end object DBText3: TDBText Left = 120 Top = 410 Width = 42 Height = 13 AutoSize = True DataField = 'Or�amento1' DataSource = Dados.dsCondominio Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object Label13: TLabel Left = 197 Top = 392 Width = 313 Height = 49 Alignment = taCenter AutoSize = False Caption = 'Os totais calculados representam o somat�rios das quotas dos con' + 'd�minos existentes baseados no crit�rio do condom�nio (Fixa, Per' + 'milagem, �rea) e est�o arredondados.' Transparent = True WordWrap = True end object Shape2: TShape Left = 576 Top = 399 Width = 105 Height = 15 Pen.Color = clRed end object Shape3: TShape Left = 490 Top = 430 Width = 112 Height = 1 Pen.Color = clRed end object Shape4: TShape Left = 601 Top = 413 Width = 1 Height = 17 Pen.Color = clRed end object lblLinha: TLabel Left = 573 Top = 392 Width = 110 Height = 13 AutoSize = False Color = clWhite ParentColor = False end object BitBtn1: TBitBtn Left = 616 Top = 420 Width = 75 Height = 25 TabOrder = 0 Kind = bkOK end object DBGrid1: TDBGrid Left = 5 Top = 48 Width = 700 Height = 308 Color = clInfoBk Ctl3D = False DataSource = DataSource1 FixedColor = 13551795 Options = [dgTitles, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] ParentCtl3D = False ReadOnly = True TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'Codigo' Title.Alignment = taCenter Width = 60 Visible = True end item Expanded = False FieldName = 'Apelido' Title.Alignment = taCenter Width = 100 Visible = True end item Expanded = False FieldName = 'Nome' Title.Alignment = taCenter Width = 110 Visible = True end item Expanded = False FieldName = 'Fraccao' Title.Caption = 'Frac��o' Width = 90 Visible = True end item Expanded = False FieldName = 'Permilagem' Title.Alignment = taCenter Width = 60 Visible = True end item Expanded = False FieldName = 'Area' Title.Alignment = taCenter Title.Caption = '�rea' Width = 80 Visible = True end item Expanded = False FieldName = 'Quota' Title.Alignment = taCenter Width = 90 Visible = True end item Expanded = False FieldName = 'QuotaAnual' Title.Alignment = taCenter Title.Caption = 'Quota Anual' Width = 90 Visible = True end> end object DataSource1: TDataSource DataSet = MemoryTable1 Left = 360 Top = 8 end object MemoryTable1: TMemoryTable Left = 392 Top = 8 object MemoryTable1Codigo: TStringField FieldName = 'Codigo' end object MemoryTable1Apelido: TStringField FieldName = 'Apelido' Size = 40 end object MemoryTable1Nome: TStringField FieldName = 'Nome' Size = 40 end object MemoryTable1Permilagem: TFloatField FieldName = 'Permilagem' DisplayFormat = '###,###,##0.##0' end object MemoryTable1rea: TFloatField FieldName = 'Area' DisplayFormat = '###,###,##0.#0' end object MemoryTable1Quota: TFloatField FieldName = 'Quota' DisplayFormat = '###,###,##0.#0' end object MemoryTable1QuotaAnual: TFloatField FieldName = 'QuotaAnual' DisplayFormat = '###,###,##0.#0' end object MemoryTable1Fraccao: TStringField FieldName = 'Fraccao' Size = 15 end end end